## State and municipal codes ####


cod_edo_mun_igvsb <- ven_elec_mapa %>%  select(cod_ent, ent_fdral, cod_mun, municipio, mun_edo) %>% 
  as_tibble() %>%
  filter(!str_detect(municipio, "^zona")) %>% 
  mutate(
    cod_edo = cod_ent, 
    estado = ent_fdral
  ) %>% select(-ent_fdral, -cod_ent)

view(ven_elec_mapa %>% filter(ent_fdral == "CARABOBO"))

sort(ven_elec_mapa$mun_edo[duplicated(ven_elec_mapa$mun_edo)])

# write.csv(cod_edo_mun_igvsb, "codigos_edo_mun_igvsb.csv")